0 REM SAVE"@:EXPERIMENT    2",12
2 IFPEEK(1024)=0THENGOTO118
3 IFZ=1THENGOTO90
4 Z=1
10 POKE53280,14:POKE53281,6:LW=PEEK(186):PRINTCHR$(8);
11 FORA=49154TO49317:READI:POKEA,I:NEXT
12 LOAD"[194] 05*",LW,1
13 END
90 POKE53280,0:POKE53281,0:POKE53265,11:PRINT"[144][147]";
91 GOSUB2000:GOSUB2100:SYS49154:GOSUB2105:FORZA=0TO500:NEXTZA
92 FA(0)=1:FA(1)=7:FA(2)=15:FA(3)=12:FA(4)=11:FA(5)=6:FA(6)=0
93 FORZA=5TO0STEP-1:POKE53281,FA(ZA):FORZB=0TO50:NEXT:NEXT
94 FORZA=0TO6:POKE53281,FA(ZA):FORZB=0TO50:NEXT:NEXT
95 FORZA=5TO3STEP-1:POKE53281,FA(ZA):FORZB=0TO50:NEXT:NEXT:FORZA=0TO1000:NEXT
96 POKE53265,11:ZA=0:GOSUB202
100 :
101 :
110 A$="WELLE: ERDBALL":POKEA(1),0:GOSUB120:GOSUB123
111 A$="[155]ZEIGT":GOSUB120:GOSUB123
112 A$="[155]AUF DER":GOSUB120:GOSUB123
113 A$="[215][201][204][204][207][215] 2OO2":GOSUB120:GOSUB123
114 A$="[155] 6. BIS 8. [211]EPTEMBER 2OO2":GOSUB120:GOSUB123
115 A$="[151] [196]AS [197]XPERIMENT 2":GOSUB120
116 PRINT"";TAB(11)" [196]AS [197]XPERIMENT 2":GOSUB2010
117 POKE55296,0:POKE1024,0:LOAD"[194] 08*",LW,1
118 SYS49154:GOSUB2105:GOTO150
119 GOTO119
120 PRINT"";CHR$(14)
121 PRINTMID$(B$,1,ZA)TAB((40-LEN(A$))/2);A$:FORZA=0TO11:PRINT:GOSUB2030:NEXT
122 RETURN
123 ZD=55756-(LEN(A$)/2):ZE=55754+(LEN(A$)/2)
124 FORZA=0TO((LEN(A$))/2)-1:FORZB=0TO6:POKEZD+ZA,FA(ZB):POKEZE-ZA,FA(ZB)
125 GOSUB2040:NEXT:NEXT:RETURN
150 :
151 RESTORE:FORZA=49154TO49317:READI:NEXT:FORZA=0TO62:READQ:POKE832+ZA,Q:NEXT
152 FORZA=0TO62:READQ:POKE896+ZA,Q:NEXT
153 FORZA=0TO62:READQ:POKE960+ZA,Q:NEXT
154 V=53248:POKEV+21,255:POKE2040,13:POKEV+0,169:POKEV+2,0:GOSUB2050
155 POKEV+3,55:POKEV+39,1:POKEV+40,2:POKEV+27,255
156 FORZC=0TO25STEP2:FORZA=0TO2:POKE2040,13+ZA:POKE2041,13+ZA:FORZB=0TO100:NEXT
157 NEXT
158 POKEV+1,95-ZC:NEXT
159 FORZC=0TO15:FORZA=0TO2:POKE2040,13+ZA:POKE2041,13+ZA:FORZB=0TO100:NEXT
160 Z1=INT(3*RND(1)):Z2=INT(3*RND(1)):POKEV+0,167+Z1:POKEV+2,167+Z2:NEXT:NEXT
161 GOSUB200:POKEV+21,0:GOTO10000
199 PRINT"":GOTO199
200 :
201 GOSUB10010
202 POKE53280,0:POKE53281,0:PRINT"[144][147]";:POKE53265,11:POKE53334,200
203 POKE53272,(PEEK(53272)AND240)OR4:POKE53265,27:RETURN
204 GOTO100
205 GOTO10000
1000 DATA173,17,208,41,239,141,17,208,162,127,160,64,32,156,192,162
1001 DATA4,160,0,32,161,192,162,131,160,39,32,114,192,162,131,160
1002 DATA40,32,156,192,162,216,160,0,32,161,192,162,135,160,15,32
1003 DATA114,192,173,16,135,141,33,208,173,17,208,9,34,141,17,208
1004 DATA173,22,208,41,223,9,16,141,22,208,173,24,208,9,8,141
1005 DATA24,208,162,96,160,0,32,156,192,162,32,160,0,32,161,192
1006 DATA162,127,160,63,32,114,192,173,17,208,9,16,141,17,208,96
1007 DATA142,1,192,140,0,192,160,0,177,251,145,253,165,252,205,1
1008 DATA192,208,8,165,251,205,0,192,208,1,96,230,251,208,2,230
1009 DATA252,230,253,208,227,230,254,76,122,192,134,252,132,251,96,134
1010 DATA254,132,253,96
1011 REM SPRITES BLUBBER
1012 DATA8,0,0,1,0,64,2,128,0,1,0,0,0,0,0
1013 DATA0,2,0,0,5,0,0,2,0,2,0,0,0,0,0,0
1014 DATA0,192,0,1,32,0,1,32,1,0,192,2,128,0,1,0
1015 DATA0,0,0,0,0,0,64,4,24,0,0,36,0,0,24,0
1016 REM
1017 DATA1,0,0,0,0,0,0,2,0,0,0,0,4,0,32
1018 DATA0,8,0,0,20,0,0,8,0,0,0,0,0,0,0,0
1019 DATA0,64,1,128,0,2,64,0,1,128,0,0,0,0,0,0
1020 DATA0,0,4,0,2,10,0,0,4,0,0,0,0,0,129,0
1021 REM
1022 DATA1,129,0,2,64,0,2,64,0,1,132,0,0,10,0
1023 DATA0,4,0,0,0,0,1,0,0,0,0,128,0,0,0,1
1024 DATA0,0,2,128,0,1,0,0,0,0,0,0,3,0,0,4
1025 DATA128,0,3,0,0,0,0,0,64,0,0,0,0,0,0,0
2000 :
2001 SI=54272
2002 FL(1)=SI:FH(1)=SI+1:TL(1)=SI+2:TH(1)=SI+3:W(1)=SI+4:A(1)=SI+5:H(1)=SI+6
2003 FL(2)=SI+7:FH(2)=SI+8:TL(2)=SI+9:TH(2)=SI+10:W(2)=SI+11:A(2)=SI+12
2004 H(2)=SI+13
2005 FL(3)=SI+14:FH(3)=SI+15:TL(3)=SI+16:TH(3)=SI+17:W(3)=SI+18:A(3)=SI+19
2006 H(3)=SI+20:L=SI+24
2007 POKEL,15:GOSUB2020
2009 RETURN
2010 POKEW(1),0
2011 FORZA=15TO0STEP-0.3
2012 POKEL,ZA:POKEA(1),15:POKEH(1),0:POKEFH(1),25-ZA:POKEFL(1),ZA:POKEW(1),129
2013 POKEA(2),15:POKEH(2),0:POKEFH(2),2:POKEFL(2),ZA:POKEW(2),129
2014 NEXT:POKEW(1),0:POKEW(2),0:POKEL,15:RETURN
2020 :
2021 POKEW(1),0:POKEW(2),0:POKEW(3),0:POKEA(1),0:POKEA(2),0:POKEA(3),0:RETURN
2030 POKEH(1),0:POKEH(2),0:POKEH(3),0:POKEA(1),0
2031 POKEW(1),0:POKEFH(1),50+ZA:POKEFL(1),50+ZA:POKEW(1),129:RETURN
2040 POKEH(1),0:POKEA(1),50
2041 ZS=INT(30*RND(1)):POKEW(1),0:POKEFH(1),ZS:POKEFL(1),ZS:POKEW(1),17:RETURN
2050 :
2051 POKEW(1),0:POKEA(1),255:POKEH(1),64:POKEFH(1),255:POKEFL(1),255
2052 POKEW(1),129:RETURN
2100 :
2101 FORI=54272TO54295:POKEI,0:NEXT
2102 POKE54296,15:POKE54287,11:POKE54278,255:POKE54276,21:FORZA=1TO1
2103 FORA=255TO0STEP-0.4:POKE54273,A:NEXT:NEXT
2104 FORI=54272TO54295:POKEI,0:NEXT:RETURN
2105 :
2106 POKEW(1),0:POKEW(2),0:POKEW(3),0
2107 POKEFH(1),3:POKEFL(1),2:POKEA(1),15:POKEH(1),224:POKEW(1),33
2108 POKEFH(2),3:POKEFL(2),3:POKEA(2),15:POKEH(2),224:POKEW(2),33
2109 POKEFH(3),3:POKEFL(3),6:POKEA(3),15:POKEH(3),224:POKEW(3),33:RETURN
10000 REM PROGRAMM LOADER
10001 L$="[194] 14*":POKEA(1),0:POKEH(1),0:POKEH(2),0:POKEH(3),0
10002 PRINT"[147][144]POKE 44,16:POKE 4096,0:NEW"
10003 PRINT"LOAD"+CHR$(34)+L$+CHR$(34)+",";LW
10004 PRINT"RUN":PRINT"RUN"
10005 POKE 631,19:POKE 632,13:POKE 633,13
10006 POKE 634,13:POKE 198,4:END
10010 FORZA=6TO0STEP-1:POKE53280,FA(ZA):POKE53281,FA(ZA):FORZB=0TO10:NEXT:NEXT
10011 FORZA=0TO6:POKE53280,FA(ZA):POKE53281,FA(ZA):FORZB=0TO10:NEXT:NEXT
10012 RETURN